home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_008 / src / hack.objnam.c < prev    next >
C/C++ Source or Header  |  1992-05-06  |  14KB  |  541 lines
  1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
  2.  
  3. #include "hack.h"
  4. #define Sprintf (void) sprintf
  5. #define Strcat  (void) strcat
  6. #define Strcpy  (void) strcpy
  7. #define PREFIX  15
  8. extern char *eos();
  9. extern int bases[];
  10.  
  11. char *
  12. strprepend(s,pref) /*register*/ char *s, *pref; {
  13. /*register*/ int i = strlen(pref);
  14.    if(i > PREFIX) {
  15.       pline("WARNING: prefix too short.");
  16.       return(s);
  17.    }
  18.    s -= i;
  19.    (void) movmem(pref, s, i);           /* do not copy trailing 0 */
  20. /*   (void) strncpy(s, pref, i); */     /* do not copy trailing 0 */
  21.    return(s);
  22. }
  23.  
  24. char *
  25. sitoa(a) int a; {
  26. static char buf[13];
  27.    Sprintf(buf, (a < 0) ? "%d" : "+%d", a);
  28.    return(buf);
  29. }
  30.  
  31. char *
  32. xname(obj)
  33. /*register*/ struct obj *obj;
  34. {
  35. static char bufr[BUFSZ];
  36. /*register*/ char *buf = &(bufr[PREFIX]);   /* leave room for "17 -3 " */
  37. /*register*/ int nn = objects[obj->otyp].oc_name_known;
  38. /*register*/ char *an = objects[obj->otyp].oc_name;
  39. /*register*/ char *dn = objects[obj->otyp].oc_descr;
  40. /*register*/ char *un = objects[obj->otyp].oc_uname;
  41. /*register*/ int pl = (obj->quan != 1);
  42.    if(!obj->dknown && !Blind) obj->dknown = 1; /* %% doesnt belong here */
  43.    switch(obj->olet) {
  44.    case AMULET_SYM:
  45.       Strcpy(buf, (obj->spe < 0 && obj->known)
  46.          ? "cheap plastic imitation of the " : "");
  47.       Strcat(buf,"Amulet of Yendor");
  48.       break;
  49.    case TOOL_SYM:
  50.       if(!nn) {
  51.          Strcpy(buf, dn);
  52.          break;
  53.       }
  54.       Strcpy(buf,an);
  55.       break;
  56.    case FOOD_SYM:
  57.       if(obj->otyp == CLOVE_OF_GARLIC && pl) {
  58.          pl = 0;
  59.          Strcpy(buf, "cloves of garlic");
  60.          break;
  61.       }
  62.       if(obj->otyp == DEAD_HOMUNCULUS && pl) {
  63.          pl = 0;
  64.          Strcpy(buf, "dead homunculi");
  65.          break;
  66.       }
  67.       /* fungis ? */
  68.       /* fall into next case */
  69.    case WEAPON_SYM:
  70.       if(obj->otyp == WORM_TOOTH && pl) {
  71.          pl = 0;
  72.          Strcpy(buf, "worm teeth");
  73.          break;
  74.       }
  75.       if(obj->otyp == CRYSKNIFE && pl) {
  76.          pl = 0;
  77.          Strcpy(buf, "crysknives");
  78.          break;
  79.       }
  80.       /* fall into next case */
  81.    case ARMOR_SYM:
  82.    case CHAIN_SYM:
  83.    case ROCK_SYM:
  84.       Strcpy(buf,an);
  85.       break;
  86.    case BALL_SYM:
  87.       Sprintf(buf, "%sheavy iron ball",
  88.         (obj->owt > objects[obj->otyp].oc_weight) ? "very " : "");
  89.       break;
  90.    case POTION_SYM:
  91.       if(nn || un || !obj->dknown) {
  92.          Strcpy(buf, "potion");
  93.          if(pl) {
  94.             pl = 0;
  95.             Strcat(buf, "s");
  96.          }
  97.          if(!obj->dknown) break;
  98.          if(un) {
  99.             Strcat(buf, " called ");
  100.             Strcat(buf, un);
  101.          } else {
  102.             Strcat(buf, " of ");
  103.             Strcat(buf, an);
  104.          }
  105.       } else {
  106.          Strcpy(buf, dn);
  107.          Strcat(buf, " potion");
  108.       }
  109.       break;
  110.    case SCROLL_SYM:
  111.       Strcpy(buf, "scroll");
  112.       if(pl) {
  113.          pl = 0;
  114.          Strcat(buf, "s");
  115.       }
  116.       if(!obj->dknown) break;
  117.       if(nn) {
  118.          Strcat(buf, " of ");
  119.          Strcat(buf, an);
  120.       } else if(un) {
  121.          Strcat(buf, " called ");
  122.          Strcat(buf, un);
  123.       } else {
  124.          Strcat(buf, " labeled ");
  125.          Strcat(buf, dn);
  126.       }
  127.       break;
  128.    case WAND_SYM:
  129.       if(!obj->dknown)
  130.          Sprintf(buf, "wand");
  131.       else if(nn)
  132.          Sprintf(buf, "wand of %s", an);
  133.       else if(un)
  134.          Sprintf(buf, "wand called %s", un);
  135.       else
  136.          Sprintf(buf, "%s wand", dn);
  137.       break;
  138.    case RING_SYM:
  139.       if(!obj->dknown)
  140.          Sprintf(buf, "ring");
  141.       else if(nn)
  142.          Sprintf(buf, "ring of %s", an);
  143.       else if(un)
  144.          Sprintf(buf, "ring called %s", un);
  145.       else
  146.          Sprintf(buf, "%s ring", dn);
  147.       break;
  148.    case GEM_SYM:
  149.       if(!obj->dknown) {
  150.          Strcpy(buf, "gem");
  151.          break;
  152.       }
  153.       if(!nn) {
  154.          Sprintf(buf, "%s gem", dn);
  155.          break;
  156.       }
  157.       if(pl && !strncmp("worthless piece", an, 15)) {
  158.          pl = 0;
  159.          Sprintf(buf, "worthless pieces%s", an+15);
  160.          break;
  161.       }
  162.       Strcpy(buf, an);
  163.       if(obj->otyp >= TURQUOISE && obj->otyp <= JADE)
  164.          Strcat(buf, " stone");
  165.       break;
  166.    default:
  167.       Sprintf(buf,"glorkum %c (0%o) %d %d",
  168.          obj->olet,obj->olet,obj->otyp,obj->spe);
  169.    }
  170.    if(pl) {
  171.       /*register*/ char *p = eos(buf)-1;
  172.       if(*p == 's' || *p == 'z' || *p == 'x' ||
  173.           (*p == 'h' && p[-1] == 's'))
  174.          Strcat(buf, "es");   /* boxes */
  175.       else if(*p == 'y' && !index(vowels, p[-1]))
  176.          Strcpy(p, "ies");   /* rubies, zruties */
  177.       else
  178.          Strcat(buf, "s");
  179.    }
  180.    if(obj->onamelth) {
  181.       Strcat(buf, " named ");
  182.       Strcat(buf, ONAME(obj));
  183.    }
  184.    return(buf);
  185. }
  186.  
  187. char *
  188. mydoname(obj)
  189. /*register*/ struct obj *obj;
  190. {
  191. char prefix[PREFIX];
  192. /*register*/ char *bp;
  193. obj->known = obj->dknown = 1;
  194. objects[obj->otyp].oc_name_known = 1;
  195. bp = xname(obj);
  196.    if(obj->quan != 1)
  197.       Sprintf(prefix, "%d ", obj->quan);
  198.    else
  199.       Strcpy(prefix, "a ");
  200.    switch(obj->olet) {
  201.    case AMULET_SYM:
  202.       if(strncmp(bp, "cheap ", 6))
  203.          Strcpy(prefix, "the ");
  204.       break;
  205.    case ARMOR_SYM:
  206.       if(obj->owornmask & W_ARMOR)
  207.          Strcat(bp, " (being worn)");
  208.       Strcat(prefix, sitoa(obj->spe - 10 + objects[obj->otyp].a_ac));
  209.       Strcat(prefix, " ");
  210.       break;
  211.    case WEAPON_SYM:
  212.       Strcat(prefix, sitoa(obj->spe));
  213.       Strcat(prefix, " ");
  214.       break;
  215.    case WAND_SYM:
  216.       Sprintf(eos(bp), " (%d)", obj->spe);
  217.       break;
  218.    case RING_SYM:
  219.       if(obj->owornmask & W_RINGR) Strcat(bp, " (on right hand)");
  220.       if(obj->owornmask & W_RINGL) Strcat(bp, " (on left hand)");
  221.       if(objects[obj->otyp].bits & SPEC) {
  222.          Strcat(prefix, sitoa(obj->spe));
  223.          Strcat(prefix, " ");
  224.       }
  225.       break;
  226.    }
  227.    if(obj->owornmask & W_WEP)
  228.       Strcat(bp, " (weapon in hand)");
  229.    if(obj->unpaid)
  230.       Strcat(bp, " (unpaid)");
  231.    if(!strcmp(prefix, "a ") && index(vowels, *bp))
  232.       Strcpy(prefix, "an ");
  233.    bp = strprepend(bp, prefix);
  234.    return(bp);
  235. }
  236.  
  237. char *
  238. doname(obj)
  239. /*register*/ struct obj *obj;
  240. {
  241. char prefix[PREFIX];
  242. /*register*/ char *bp = xname(obj);
  243.  
  244.    if(obj->quan != 1)
  245.       Sprintf(prefix, "%d ", obj->quan);
  246.    else
  247.       Strcpy(prefix, "a ");
  248.    switch(obj->olet) {
  249.    case AMULET_SYM:
  250.       if(strncmp(bp, "cheap ", 6))
  251.          Strcpy(prefix, "the ");
  252.       break;
  253.    case ARMOR_SYM:
  254.       if(obj->owornmask & W_ARMOR)
  255.          Strcat(bp, " (being worn)");
  256.       if(obj->known) {
  257.          Strcat(prefix,
  258.              sitoa(obj->spe - 10 + objects[obj->otyp].a_ac));
  259.          Strcat(prefix, " ");
  260.       }
  261.       break;
  262.    case WEAPON_SYM:
  263.       if(obj->known) {
  264.          Strcat(prefix, sitoa(obj->spe));
  265.          Strcat(prefix, " ");
  266.       }
  267.       break;
  268.    case WAND_SYM:
  269.       if(obj->known)
  270.          Sprintf(eos(bp), " (%d)", obj->spe);
  271.       break;
  272.    case RING_SYM:
  273.       if(obj->owornmask & W_RINGR) Strcat(bp, " (on right hand)");
  274.       if(obj->owornmask & W_RINGL) Strcat(bp, " (on left hand)");
  275.       if(obj->known && (objects[obj->otyp].bits & SPEC)) {
  276.          Strcat(prefix, sitoa(obj->spe));
  277.          Strcat(prefix, " ");
  278.       }
  279.       break;
  280.    }
  281.    if(obj->owornmask & W_WEP)
  282.       Strcat(bp, " (weapon in hand)");
  283.    if(obj->unpaid)
  284.       Strcat(bp, " (unpaid)");
  285.    if(!strcmp(prefix, "a ") && index(vowels, *bp))
  286.       Strcpy(prefix, "an ");
  287.  
  288.    bp = strprepend(bp, prefix);
  289.    return(bp);
  290. }
  291.  
  292. /* used only in hack.fight.c (thitu) */
  293. setan(str,buf)
  294. /*register*/ char *str,*buf;
  295. {
  296.    if(index(vowels,*str))
  297.       Sprintf(buf, "an %s", str);
  298.    else
  299.       Sprintf(buf, "a %s", str);
  300. }
  301.  
  302. char *
  303. aobjnam(otmp,verb) /*register*/ struct obj *otmp; /*register*/ char *verb; {
  304. /*register*/ char *bp = xname(otmp);
  305. char prefix[PREFIX];
  306.    if(otmp->quan != 1) {
  307.       Sprintf(prefix, "%d ", otmp->quan);
  308.       bp = strprepend(bp, prefix);
  309.    }
  310.  
  311.    if(verb) {
  312.       /* verb is given in plural (i.e., without trailing s) */
  313.       Strcat(bp, " ");
  314.       if(otmp->quan != 1)
  315.          Strcat(bp, verb);
  316.       else if(!strcmp(verb, "are"))
  317.          Strcat(bp, "is");
  318.       else {
  319.          Strcat(bp, verb);
  320.          Strcat(bp, "s");
  321.       }
  322.    }
  323.    return(bp);
  324. }
  325.  
  326. char *wrp[] = { "wand", "ring", "potion", "scroll", "gem" };
  327. char wrpsym[] = { WAND_SYM, RING_SYM, POTION_SYM, SCROLL_SYM, GEM_SYM };
  328.  
  329. struct obj *
  330. readobjnam(bp) /*register*/ char *bp; {
  331. /*register*/ char *p;
  332. /*register*/ int i;
  333. int cnt, spe, spesgn, typ, heavy;
  334. char let;
  335. char *un, *dn, *an;
  336. /* int the = 0; char *oname = 0; */
  337.    cnt = spe = spesgn = typ = heavy = 0;
  338.    let = 0;
  339.    an = dn = un = 0;
  340.    for(p = bp; *p; p++)
  341.       if('A' <= *p && *p <= 'Z') *p += 'a'-'A';
  342.    if(!strncmp(bp, "the ", 4)){
  343. /*      the = 1; */
  344.       bp += 4;
  345.    } else if(!strncmp(bp, "an ", 3)){
  346.       cnt = 1;
  347.       bp += 3;
  348.    } else if(!strncmp(bp, "a ", 2)){
  349.       cnt = 1;
  350.       bp += 2;
  351.    }
  352.    if(!cnt && digit(*bp)){
  353.       cnt = atoi(bp);
  354.       while(digit(*bp)) bp++;
  355.       while(*bp == ' ') bp++;
  356.    }
  357.    if(!cnt) cnt = 1;      /* %% what with "gems" etc. ? */
  358.  
  359.    if(*bp == '+' || *bp == '-'){
  360.       spesgn = (*bp++ == '+') ? 1 : -1;
  361.       spe = atoi(bp);
  362.       while(digit(*bp)) bp++;
  363.       while(*bp == ' ') bp++;
  364.    } else {
  365.       p = rindex(bp, '(');
  366.       if(p) {
  367.          if(p > bp && p[-1] == ' ') p[-1] = 0;
  368.          else *p = 0;
  369.          p++;
  370.          spe = atoi(p);
  371.          while(digit(*p)) p++;
  372.          if(strcmp(p, ")")) spe = 0;
  373.          else spesgn = 1;
  374.       }
  375.    }
  376.    /* now we have the actual name, as delivered by xname, say
  377.       green potions called whisky
  378.       scrolls labeled "QWERTY"
  379.       egg
  380.       dead zruties
  381.       fortune cookies
  382.       very heavy iron ball named hoei
  383.       wand of wishing
  384.       elven cloak
  385.    */
  386.    for(p = bp; *p; p++) if(!strncmp(p, " named ", 7)) {
  387.       *p = 0;
  388. /*      oname = p+7; */
  389.    }
  390.    for(p = bp; *p; p++) if(!strncmp(p, " called ", 8)) {
  391.       *p = 0;
  392.       un = p+8;
  393.    }
  394.    for(p = bp; *p; p++) if(!strncmp(p, " labeled ", 9)) {
  395.       *p = 0;
  396.       dn = p+9;
  397.    }
  398.  
  399.    /* first change to singular if necessary */
  400.    if(cnt != 1) {
  401.       /* find "cloves of garlic", "worthless pieces of blue glass" */
  402.       for(p = bp; *p; p++) if(!strncmp(p, "s of ", 5)){
  403.          while(*p = p[1]) p++;
  404.          goto sing;
  405.       }
  406.       /* remove -s or -es (boxes) or -ies (rubies, zruties) */
  407.       p = eos(bp);
  408.       if(p[-1] == 's') {
  409.          if(p[-2] == 'e') {
  410.             if(p[-3] == 'i') {
  411.                if(!strcmp(p-7, "cookies"))
  412.                   goto mins;
  413.                Strcpy(p-3, "y");
  414.                goto sing;
  415.             }
  416.  
  417.             /* note: cloves / knives from clove / knife */
  418.             if(!strcmp(p-6, "knives")) {
  419.                Strcpy(p-3, "fe");
  420.                goto sing;
  421.             }
  422.  
  423.             /* note: nurses, axes but boxes */
  424.             if(!strcmp(p-5, "boxes")) {
  425.                p[-2] = 0;
  426.                goto sing;
  427.             }
  428.          }
  429.       mins:
  430.          p[-1] = 0;
  431.       } else {
  432.          if(!strcmp(p-9, "homunculi")) {
  433.             Strcpy(p-1, "us"); /* !! makes string longer */
  434.             goto sing;
  435.          }
  436.          if(!strcmp(p-5, "teeth")) {
  437.             Strcpy(p-5, "tooth");
  438.             goto sing;
  439.          }
  440.          /* here we cannot find the plural suffix */
  441.       }
  442.    }
  443. sing:
  444.    if(!strcmp(bp, "amulet of yendor")) {
  445.       typ = AMULET_OF_YENDOR;
  446.       goto typfnd;
  447.    }
  448.    p = eos(bp);
  449.    if(!strcmp(p-5, " mail")){   /* Note: ring mail is not a ring ! */
  450.       let = ARMOR_SYM;
  451.       an = bp;
  452.       goto srch;
  453.    }
  454.    for(i = 0; i < sizeof(wrpsym); i++) {
  455.       /*register*/ int j = strlen(wrp[i]);
  456.       if(!strncmp(bp, wrp[i], j)){
  457.          let = wrpsym[i];
  458.          bp += j;
  459.          if(!strncmp(bp, " of ", 4)) an = bp+4;
  460.          /* else if(*bp) ?? */
  461.          goto srch;
  462.       }
  463.       if(!strcmp(p-j, wrp[i])){
  464.          let = wrpsym[i];
  465.          p -= j;
  466.          *p = 0;
  467.          if(p[-1] == ' ') p[-1] = 0;
  468.          dn = bp;
  469.          goto srch;
  470.       }
  471.    }
  472.    if(!strcmp(p-6, " stone")){
  473.       p[-6] = 0;
  474.       let = GEM_SYM;
  475.       an = bp;
  476.       goto srch;
  477.    }
  478.    if(!strcmp(bp, "very heavy iron ball")){
  479.       heavy = 1;
  480.       typ = HEAVY_IRON_BALL;
  481.       goto typfnd;
  482.    }
  483.    an = bp;
  484. srch:
  485.    if(!an && !dn && !un)
  486.       goto any;
  487.    i = 1;
  488.    if(let) i = bases[letindex(let)];
  489.    while(i <= NROFOBJECTS && (!let || objects[i].oc_olet == let)){
  490.       if(an && strcmp(an, objects[i].oc_name))
  491.          goto nxti;
  492.       if(dn && strcmp(dn, objects[i].oc_descr))
  493.          goto nxti;
  494.       if(un && strcmp(un, objects[i].oc_uname))
  495.          goto nxti;
  496.       typ = i;
  497.       goto typfnd;
  498.    nxti:
  499.       i++;
  500.    }
  501. any:
  502.    if(!let) let = wrpsym[rn2(sizeof(wrpsym))];
  503.    typ = probtype(let);
  504. typfnd:
  505.    { /*register*/ struct obj *otmp;
  506.      extern struct obj *mksobj();
  507.    let = objects[typ].oc_olet;
  508.    if(let == FOOD_SYM && typ >= CORPSE)
  509.        let = typ-CORPSE+'@'+((typ > CORPSE + 'Z' - '@') ? 'a'-'Z'-1 : 0);
  510.    otmp = mksobj(let, typ);
  511.    if(heavy)
  512.       otmp->owt += 15;
  513.    if(cnt > 0 && index("%?!*)", let) &&
  514.       (cnt < 4 || (let == WEAPON_SYM && typ <= ROCK && cnt < 20)))
  515.       otmp->quan = cnt;
  516.    if(spesgn == -1)
  517.       otmp->cursed = 1;
  518.    if(spe > 3 && spe > otmp->spe)
  519.       spe = 0;
  520.    else if(let == WAND_SYM)
  521.       spe = otmp->spe;
  522.    if(spe == 3 && u.uluck < 0)
  523.       spesgn = -1;
  524.    if(let != WAND_SYM && spesgn == -1)
  525.       spe = -spe;
  526.    if(let == BALL_SYM)
  527.       spe = 0;
  528.    else if(let == AMULET_SYM)
  529.       spe = -1;
  530.    else if(typ == WAN_WISHING && rn2(10))
  531.       spe = 0;
  532.    else if(let == ARMOR_SYM) {
  533.       spe += 10 - objects[typ].a_ac;
  534.       if(spe > 5 && rn2(spe - 5))
  535.          otmp->cursed = 1;
  536.    }
  537.    otmp->spe = spe;
  538.    return(otmp);
  539.    }
  540. }
  541.